note
	description: "Summary description for {MIRAGE}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	MIRAGE
feature -- Access

misil: MC72


Atacar_Objetivo (s: STRING) is
		--
local
	control:INTEGER
	falloPreparar:BOOLEAN
	contador:INTEGER
		--
do
if (falloPreparar=false) then

	!!misil
	control:=0
misil.preparar_misil
control:=1
misil.apuntar_misil (s)
misil.lanzar_misil
end
rescue
inspect control
when 0 then falloPreparar:=true
              retry

when 1 then contador:=contador+1

             if contador<5 then
                     	retry
           end
end
end

end
